(do-auto-fill): Always break before any whitespace

so that point ends up at the right place.

diff --git a/lisp/simple.el b/lisp/simple.el
index e5fa238632011def7cb244dc0c0d302a99611428..7e4a1a4adfe3bf9e138a0a48d416822202154b6d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2956,6 +2956,8 @@ Setting this variable automatically makes it local to the current buffer.")
                        (kinsoku (save-excursion
                                   (forward-line 0) (point))))
                    ;; Let fill-point be set to the place where we end up.
+                   ;; But move back before any whitespace here.
+                   (skip-chars-backward " \t")
                    (point)))))
 
          ;; See whether the place we found is any good.